perm filename PW1.LAP[1,DBL] blob
sn#020921 filedate 1973-01-21 generic text, type T, neo UTF8
(LAP ENTER SUBR)
(MOVEI 1 (QUOTE "THE SYSTEM IS STARTED"))
(CALL 1 (E PRINTSTR))
TAG1 (MOVEI 1 (QUOTE "
PLEASE TYPE IN A REQUEST
..."))
(CALL 1 (E PRINTSTR))
(CALL 0 (E READ))
(MOVEM 1 (SPECIAL L))
(MOVEM 1 (SPECIAL LHOLD))
(MOVE 1 (SPECIAL L))
(JUMPN 1 TAG6)
(MOVEI 1 (QUOTE "THE SYSTEM IS ENDED."))
(JRST 0 TAG2)
TAG6
TAG7 (MOVE 1 (SPECIAL L))
(CALL 1 (E D))
(CALL 1 (E PRINT))
(JRST 0 TAG1)
TAG2 (POPJ P)
NIL
(LAP D SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL L))
(CALL 0 (E READINKNOWN))
(MOVEM 1 (SPECIAL I))
(HLRZ@ 1 (SPECIAL IDATA))
(MOVEM 1 (SPECIAL KNOWNF))
(HRRZ@ 1 (SPECIAL IDATA))
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL TARG))
(HRRZ@ 1 (SPECIAL IDATA))
(CALL 1 (E CADR))
(MOVEM 1 (SPECIAL NARG))
(HRRZ@ 1 (SPECIAL IDATA))
(CALL 1 (E CADDR))
(MOVEM 1 (SPECIAL TRE))
(HRRZ@ 1 (SPECIAL IDATA))
(CALL 1 (E CDDDR))
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL BA1))
(HRRZ@ 1 (SPECIAL IDATA))
(CALL 1 (E CDDDR))
(CALL 1 (E CADR))
(MOVEM 1 (SPECIAL BA2))
(HRRZ@ 1 (SPECIAL IDATA))
(CALL 1 (E CDDDR))
(CALL 1 (E CADDR))
(MOVEM 1 (SPECIAL TF))
(HRRZ@ 1 (SPECIAL IDATA))
(CALL 1 (E CDDDR))
(CALL 1 (E CADDDR))
(MOVEM 1 (SPECIAL T2F))
(HLRZ@ 1 (SPECIAL L))
(PUSH P 1)
(MOVEM 1 (SPECIAL FN2))
(HRRZ@ 1 (SPECIAL L))
(PUSH P 1)
(CALL 1 (E LENGTH))
(PUSH P 1)
(MOVEM 1 (SPECIAL NVARIABLES))
(PUSH P (C 0 0 (QUOTE (NIL NIL NIL NIL)) 0))
(MOVE 2 (SPECIAL KNOWNF))
(MOVE 1 -3 P)
(CALL 2 (E MEMBER))
(JUMPE 1 TAG5)
(MOVE 4 0 P)
(MOVE 3 -1 P)
(MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 4 (E K1))
(JRST 0 TAG1)
TAG5 (MOVE 4 0 P)
(MOVE 3 -1 P)
(MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 4 (E K2))
(JRST 0 TAG1)
TAG6 (MOVEI 1 (QUOTE NIL))
TAG1 (SUB P (C 0 0 4 4))
(JRST 0 SPECSTR)
NIL
(LAP INIT SUBR)
(MOVEI 1 (QUOTE UNKNOWN))
(MOVEM 1 (SPECIAL UNKNOWN))
(MOVEI 1 (QUOTE 0))
(MOVEM 1 (SPECIAL INF))
(MOVEI 1 (QUOTE (NIL)))
(MOVEM 1 (SPECIAL ORD))
(MOVEI 1 (QUOTE "TYPE IN HOW DEEPLY WE SHOULD RECURSE BEFORE
GIVING UP AS INFINITE LOOP (I SUGGEST 15) ..."))
(CALL 1 (E PRINTSTR))
(CALL 0 (E READ))
(MOVEM 1 (SPECIAL LIMINFBASE))
(MOVEM 1 (SPECIAL LIMINF))
(MOVE 2 1)
(CALL 2 (E *PLUS))
(MOVEM 1 (SPECIAL TWICELIMINF))
(MOVE 2 (SPECIAL LIMINF))
(CALL 2 (E *PLUS))
(MOVEM 1 (SPECIAL TRIPLELIMINF))
(MOVEI 2 (QUOTE 46))
(MOVE 1 (SPECIAL LIMINFBASE))
(CALL 2 (E *LESS))
(JUMPN 1 TAG5)
(MOVEI 1 (QUOTE 114))
(MOVEM 1 (SPECIAL TWICELIMINF))
(JRST 0 TAG4)
TAG5
TAG6
TAG4 (MOVEI 2 (QUOTE 32))
(MOVE 1 (SPECIAL LIMINFBASE))
(CALL 2 (E *LESS))
(JUMPN 1 TAG11)
(MOVEI 1 (QUOTE 116))
(MOVEM 1 (SPECIAL TRIPLELIMINF))
(JRST 0 TAG10)
TAG11
TAG12
TAG10 (MOVEI 1 (QUOTE (FN CAR CDR IDEN MINUS ATOM LISTP NUMBERP NULL LIST CONST1 ZERO1 QUOTE EVAL LENGTH NOT H~
ALF SUB1 ADD1)))
(MOVEM 1 (SPECIAL BA1))
(MOVEI 1 (QUOTE (CONS PI12 PI22 FN2 LIST PLUS TIMES MEMBER APPEND GREATERP LESSP EQUAL AND OR NOT)))
(MOVEM 1 (SPECIAL BA2))
(MOVEI 1 (QUOTE "TYPE IN MESSAGE LEVEL (I SUGGEST 3)..."))
(CALL 1 (E PRINTSTR))
(CALL 0 (E READ))
(MOVEM 1 (SPECIAL MSGLEVEL))
(MOVEI 1 (QUOTE (CAR CDR CONS IDEN PLUS TIMES MINUS ATOM LISTP NUMBERP NULL QUOTE EVAL LENGTH MEMBER GRE~
ATERP LESSP EQUAL AND OR NOT HALF PI12 PI22 ZERO1 ZERO2 CONST1 CONST2 SUB1 ADD1 LIST APPEND FN FN2)))
(MOVEM 1 (SPECIAL KNOWNF))
(MOVEI 1 (QUOTE (DE FN (L) (COND ((EQUAL (F1 L) C1) (F2 L)) ((EQUAL (F8 L) C3) (F9 L)) ((OR (GT L) (AND ~
(INFINITY) ((CAR (GET F4 TARGS)) (F3 L)) ((CAR (GET F6 TARGS)) (F5 L)) ((CAR (GET F7 TARGS)) (F4 (F3 L))) ((CADR~
(GET F7 TARGS)) (F6 (F5 L))))) (F7 (F4 (F3 L)) (F6 (F5 L)))) (T C2)))))
(MOVEM 1 (SPECIAL SCHEMA))
(CALL 1 (E *EVAL))
(MOVEM 1 (SPECIAL I))
(CALL 0 (E GS2))
(MOVEM 1 (SPECIAL I))
(MOVE 1 (SPECIAL SCHEMA2))
(CALL 1 (E *EVAL))
(MOVEM 1 (SPECIAL I))
(MOVEI 1 (QUOTE NARGS))
(MOVEM 1 (SPECIAL NARGS))
(MOVEI 1 (QUOTE TARGS))
(MOVEM 1 (SPECIAL TARGS))
(MOVEI 1 (QUOTE TRES))
(MOVEM 1 (SPECIAL TRES))
(JCALL 0 (E PUTFORM))
NIL
(LAP IDEN SUBR)
(POPJ P)
NIL
(LAP HALF SUBR)
(MOVEI 2 (QUOTE 2))
(JCALL 2 (E *QUO))
NIL
(LAP K1 SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL I))
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(MOVEI 2 (QUOTE NARGS))
(CALL 2 (E GET))
(MOVEM 1 (SPECIAL I))
(MOVE 2 3)
(CALL 2 (E EQUAL))
(JUMPN 1 TAG6)
(MOVEI 2 (QUOTE 13))
(MOVE 1 (SPECIAL I))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG5)
TAG6 (MOVE 1 (SPECIAL L))
(CALL 1 (E *EVAL))
(JRST 0 TAG1)
TAG5
TAG7 (MOVEI 1 (QUOTE "THIS FUNCTION TAKES EXACTLY"))
(CALL 1 (E PRINTSTR))
(MOVE 1 (SPECIAL I))
(CALL 1 (E PRIN1))
(MOVEI 1 (QUOTE " ARGUMENT(S), BUT YOU USED IT WITH"))
(CALL 1 (E PRINTSTR))
(MOVE 1 -1 P)
(CALL 1 (E PRIN1))
(MOVEI 1 (QUOTE "ARGUMENT(S).
ARE WE DEFINING A NEW BUT CLOSELY
RELATED FUNCTION Y OR N ..."))
(CALL 1 (E PRINTSTR))
(CALL 0 (E READ))
(MOVEI 2 (QUOTE Y))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG12)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E XCONS))
(MOVE 3 -3 P)
(MOVEM 3 (SPECIAL &M001))
(MOVE 2 1)
(MOVE 1 0 P)
(CALL 3 (E &REPLACE))
(MOVEM 1 0 P)
(JRST 0 TAG11)
TAG12 (MOVEI 1 (QUOTE "ARE WE DEFINING A NEW FUNCTION HERE OR
NOT Y OR N ..."))
(CALL 1 (E PRINTSTR))
(CALL 0 (E READ))
(MOVEI 2 (QUOTE N))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG16)
(MOVEI 1 (QUOTE "IGNORING THE REQUEST ENTIRELY"))
(JRST 0 TAG1)
TAG16
TAG17
TAG13
TAG11 (MOVEI 1 (QUOTE "PICK A NEW FUNCTION NAME TO REPLACE THIS NEWEST USE OF"))
(CALL 1 (E PRINTSTR))
(MOVE 1 -3 P)
(CALL 1 (E PRIN1))
(MOVEI 1 (QUOTE "..."))
(CALL 1 (E PRINTSTR))
(CALL 0 (E READ))
(MOVEM 1 -3 P)
(MOVEM 1 (SPECIAL FN2))
(MOVE 2 (SPECIAL KNOWNF))
(MOVE 1 -3 P)
(CALL 2 (E MEMBER))
(JUMPE 1 TAG22)
(MOVE 4 0 P)
(MOVE 3 -1 P)
(MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 4 (E K1))
(JRST 0 TAG1)
TAG22 (MOVE 4 0 P)
(MOVE 3 -1 P)
(MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 4 (E K2))
(JRST 0 TAG1)
TAG23 (MOVEI 1 (QUOTE NIL))
TAG1 (SUB P (C 0 0 4 4))
(JRST 0 SPECSTR)
NIL
(LAP K2 SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL I))
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(MOVEI 1 (QUOTE "READY TO MAKE NEW FUNCTION. DO YOU WANT TO"))
(CALL 1 (E PRINTSTR))
(MOVEI 1 (QUOTE " CHANGE YOUR REQUEST Y OR N..."))
(CALL 1 (E PRINTSTR))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 0 (E READ))
(MOVEI 2 (QUOTE Y))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG11)
(MOVEI 1 (QUOTE "VERY WELL. IGNORING
THE REQUEST ENTIRELY"))
(JRST 0 TAG5)
TAG11
TAG12 (PUSH P (C 0 0 (QUOTE 1) 0))
(MOVE 1 (SPECIAL KNOWNF))
(CALL 1 (E LENGTH))
(MOVEI 2 (QUOTE 2))
(CALL 2 (E *DIF))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG20)
(MOVE 1 0 P)
(JRST 0 TAG14)
TAG20
TAG21 (MOVE 1 -3 P)
(MOVEM 1 -1 P)
(PUSH P (SPECIAL KNOWNF))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(MOVEI 3 (QUOTE RVAL))
(MOVEI 2 (QUOTE NIL))
(HLRZ@ 1 1)
(CALL 3 (E PUTPROP))
(MOVEM 1 0 P)
(MOVE 1 -3 P)
(CALL 1 (E ADD1))
(MOVEM 1 -3 P)
(JRST 0 TAG1)
TAG14 (SUB P (C 0 0 4 4))
(CLEARM 1 (SPECIAL F1))
(CLEARM 1 (SPECIAL F2))
(CLEARM 1 (SPECIAL F3))
(CLEARM 1 (SPECIAL F4))
(CLEARM 1 (SPECIAL F5))
(CLEARM 1 (SPECIAL F6))
(CLEARM 1 (SPECIAL F7))
(CLEARM 1 (SPECIAL F8))
(CLEARM 1 (SPECIAL F9))
(CLEARM 1 (SPECIAL F10))
(CLEARM 1 (SPECIAL F11))
(CLEARM 1 (SPECIAL F12))
(CLEARM 1 (SPECIAL F13))
(CLEARM 1 (SPECIAL F14))
(CLEARM 1 (SPECIAL F15))
(CLEARM 1 (SPECIAL F16))
(CLEARM 1 (SPECIAL F17))
(CLEARM 1 (SPECIAL F18))
(CLEARM 1 (SPECIAL F19))
(CLEARM 1 (SPECIAL EXAMPLE))
(HRRZ@ 1 (SPECIAL BA1))
(MOVEM 1 (SPECIAL CO))
(HRRZ@ 1 (SPECIAL BA2))
(MOVEM 1 (SPECIAL CO2))
(MOVE 1 (SPECIAL CO))
(CALL 1 (E NCONS))
(MOVE 2 (SPECIAL CO))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL BA2))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL CO))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL CO))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL BA2))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL BA2))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL CO))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL CO))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL BA2))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL CO))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL CO))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL BA2))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL CO))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL CO))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL BA2))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL CO))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL CO))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL BA2))
(CALL 2 (E XCONS))
(MOVEM 1 (SPECIAL ORDER2))
(MOVE 1 (SPECIAL CO2))
(CALL 1 (E NCONS))
(MOVE 2 (SPECIAL BA1))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL CO))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL BA1))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL CO))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL CO))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL CO))
(CALL 2 (E XCONS))
(MOVEM 1 (SPECIAL ORDER))
(MOVEI 1 (QUOTE "FOR EACH OF THE FOLLOWINGS FUNCTIONS, TYPE
EITHER TH WORD STOP OR A FUNCTION NAME, A SPACE, AND THEN A
1/2/3/4/5, MEANING THAT THE FN. IS DEFINITELY/PROBABLY/POSSIBLY
/PROBABLY NOT/DEFINITELY NOT RELATED TO"))
(CALL 1 (E PRINTSTR))
(MOVE 1 -4 P)
(CALL 1 (E PRIN1))
(MOVE 1 (SPECIAL KNOWNF))
(CALL 1 (E PRINT))
(JSP 6 SPECBIND)
(0 0 (SPECIAL VAR4))
(PUSH P (C 0 0 (QUOTE 1) 0))
(MOVE 1 (SPECIAL KNOWNF))
(CALL 1 (E LENGTH))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG2 (MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG27)
(MOVE 1 0 P)
(JRST 0 TAG23)
TAG27
TAG30 (MOVE 1 -2 P)
(MOVEM 1 (SPECIAL VAR4))
TAG3 (CALL 0 (E READ))
(MOVEM 1 (SPECIAL I))
(MOVEI 2 (QUOTE STOP))
(CALL 2 (E EQUAL))
(JUMPN 1 TAG4)
TAG36 (CALL 0 (E READ))
(MOVEI 3 (QUOTE RVAL))
(MOVE 2 1)
(MOVEM 1 -3 P)
(MOVE 1 (SPECIAL I))
(CALL 3 (E PUTPROP))
(MOVEI 2 (QUOTE (1 2 3 4)))
(MOVE 1 -3 P)
(CALL 2 (E MEMBER))
(JUMPE 1 TAG41)
(MOVE 1 -3 P)
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVE 1 -4 P)
(PUSH P (SPECIAL I))
(CALL 1 (E SUB1))
(MOVE 2 1)
(MOVE 1 -6 P)
(CALL 2 (E SUFLIST))
(HLRZ@ 2 1)
(POP P 1)
(CALL 2 (E CONS))
(MOVEM 1 (SPECIAL &M002))
(MOVE 3 1)
(POP P 2)
(MOVE 1 -4 P)
(CALL 3 (E &REPLACE))
(MOVEM 1 -4 P)
(JRST 0 TAG40)
TAG41 (MOVEI 2 (QUOTE 5))
(MOVE 1 -3 P)
(CALL 2 (E EQUAL))
(JUMPN 1 TAG42)
(MOVEI 1 (QUOTE "NO,NO! TYPE IN ONE DIGIT FROM 1 TO 5!!!"))
(CALL 1 (E PRINTSTR))
(JRST 0 TAG3)
TAG42
TAG43
TAG40
TAG4 (MOVEI 1 (QUOTE NIL))
(MOVEM 1 0 P)
(MOVEI 2 (QUOTE STOP))
(MOVE 1 (SPECIAL I))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG46)
(MOVE 1 0 P)
(JRST 0 TAG23)
TAG46
TAG47 (MOVE 1 -2 P)
(CALL 1 (E ADD1))
(MOVEM 1 -2 P)
(JRST 0 TAG2)
TAG23 (PUSHJ P SPECSTR)
(SUB P (C 0 0 3 3))
(MOVEI 1 (QUOTE "DO YOU THINK RECURSION (OR AN AUXILLIARY FN. WILL
BE REQUIRED HERE Y OR N OR M(FOR MAYBE) ..."))
(CALL 1 (E PRINTSTR))
(CALL 0 (E READ))
(MOVEM 1 (SPECIAL I))
(MOVEI 2 (QUOTE Y))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG52)
(MOVE 4 -1 P)
(MOVE 3 -2 P)
(MOVE 2 -3 P)
(MOVE 1 -4 P)
(CALL 4 (E REC))
(JRST 0 TAG5)
TAG52 (MOVE 5 (SPECIAL I))
(MOVE 4 -1 P)
(MOVE 3 -2 P)
(MOVE 2 -3 P)
(MOVE 1 -4 P)
(CALL 5 (E NREC))
(JRST 0 TAG5)
TAG53 (MOVEI 1 (QUOTE NIL))
TAG5 (SUB P (C 0 0 5 5))
(JRST 0 SPECSTR)
NIL
(LAP PUTFORM SUBR)
(CLEARM 1 (SPECIAL TF))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 0 (E MAKELISTS))
(MOVEI 2 (QUOTE NIL))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG10)
(MOVEI 1 (QUOTE "MAKELISTS IS NIL"))
(CALL 1 (E PRINTSTR))
(JRST 0 TAG4)
TAG10
TAG11 (CLEARM 1 (SPECIAL PF))
(MOVEI 1 (QUOTE 1))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE PF1))
(MOVEM 3 (SPECIAL &M003))
(MOVE 2 1)
(MOVE 1 (SPECIAL PF))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL PF))
(MOVEI 1 (QUOTE 2))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE PF2))
(MOVEM 3 (SPECIAL &M004))
(MOVE 2 1)
(MOVE 1 (SPECIAL PF))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL PF))
(MOVEI 1 (QUOTE 3))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE PF3))
(MOVEM 3 (SPECIAL &M005))
(MOVE 2 1)
(MOVE 1 (SPECIAL PF))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL PF))
(MOVEI 1 (QUOTE 4))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE PF4))
(MOVEM 3 (SPECIAL &M006))
(MOVE 2 1)
(MOVE 1 (SPECIAL PF))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL PF))
(MOVEI 1 (QUOTE 5))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE PF5))
(MOVEM 3 (SPECIAL &M007))
(MOVE 2 1)
(MOVE 1 (SPECIAL PF))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL PF))
(MOVEI 1 (QUOTE 6))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE PF6))
(MOVEM 3 (SPECIAL &M008))
(MOVE 2 1)
(MOVE 1 (SPECIAL PF))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL PF))
(MOVEI 1 (QUOTE 7))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE PF7))
(MOVEM 3 (SPECIAL &M009))
(MOVE 2 1)
(MOVE 1 (SPECIAL PF))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL PF))
(MOVEI 1 (QUOTE 10))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE PF8))
(MOVEM 3 (SPECIAL &M010))
(MOVE 2 1)
(MOVE 1 (SPECIAL PF))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL PF))
(MOVEI 1 (QUOTE 11))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE PF9))
(MOVEM 3 (SPECIAL &M011))
(MOVE 2 1)
(MOVE 1 (SPECIAL PF))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL PF))
(MOVEI 1 (QUOTE 1))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE P2F1))
(MOVEM 3 (SPECIAL &M012))
(MOVE 2 1)
(MOVE 1 (SPECIAL P2F))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL P2F))
(MOVEI 1 (QUOTE 2))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE P2F2))
(MOVEM 3 (SPECIAL &M013))
(MOVE 2 1)
(MOVE 1 (SPECIAL P2F))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL P2F))
(MOVEI 1 (QUOTE 3))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE P2F3))
(MOVEM 3 (SPECIAL &M014))
(MOVE 2 1)
(MOVE 1 (SPECIAL P2F))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL P2F))
(MOVEI 1 (QUOTE 4))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE P2F4))
(MOVEM 3 (SPECIAL &M015))
(MOVE 2 1)
(MOVE 1 (SPECIAL P2F))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL P2F))
(MOVEI 1 (QUOTE 5))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE P2F5))
(MOVEM 3 (SPECIAL &M016))
(MOVE 2 1)
(MOVE 1 (SPECIAL P2F))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL P2F))
(MOVEI 1 (QUOTE 6))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE P2F6))
(MOVEM 3 (SPECIAL &M017))
(MOVE 2 1)
(MOVE 1 (SPECIAL P2F))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL P2F))
(MOVEI 1 (QUOTE 7))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE P2F7))
(MOVEM 3 (SPECIAL &M018))
(MOVE 2 1)
(MOVE 1 (SPECIAL P2F))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL P2F))
(MOVEI 1 (QUOTE 10))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE P2F8))
(MOVEM 3 (SPECIAL &M019))
(MOVE 2 1)
(MOVE 1 (SPECIAL P2F))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL P2F))
(MOVEI 1 (QUOTE 11))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE P2F9))
(MOVEM 3 (SPECIAL &M020))
(MOVE 2 1)
(MOVE 1 (SPECIAL P2F))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL P2F))
(MOVEI 1 (QUOTE 12))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE P2F10))
(MOVEM 3 (SPECIAL &M021))
(MOVE 2 1)
(MOVE 1 (SPECIAL P2F))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL P2F))
(MOVEI 1 (QUOTE 13))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE P2F11))
(MOVEM 3 (SPECIAL &M022))
(MOVE 2 1)
(MOVE 1 (SPECIAL P2F))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL P2F))
(MOVEI 1 (QUOTE 14))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE P2F12))
(MOVEM 3 (SPECIAL &M023))
(MOVE 2 1)
(MOVE 1 (SPECIAL P2F))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL P2F))
(MOVEI 1 (QUOTE 15))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE P2F13))
(MOVEM 3 (SPECIAL &M024))
(MOVE 2 1)
(MOVE 1 (SPECIAL P2F))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL P2F))
(MOVEI 1 (QUOTE 16))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE P2F14))
(MOVEM 3 (SPECIAL &M025))
(MOVE 2 1)
(MOVE 1 (SPECIAL P2F))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL P2F))
(MOVEI 1 (QUOTE 17))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE P2F15))
(MOVEM 3 (SPECIAL &M026))
(MOVE 2 1)
(MOVE 1 (SPECIAL P2F))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL P2F))
(MOVEI 1 (QUOTE 20))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE P2F16))
(MOVEM 3 (SPECIAL &M027))
(MOVE 2 1)
(MOVE 1 (SPECIAL P2F))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL P2F))
(MOVEI 1 (QUOTE 21))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE P2F17))
(MOVEM 3 (SPECIAL &M028))
(MOVE 2 1)
(MOVE 1 (SPECIAL P2F))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL P2F))
(MOVEI 1 (QUOTE 22))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE P2F18))
(MOVEM 3 (SPECIAL &M029))
(MOVE 2 1)
(MOVE 1 (SPECIAL P2F))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL P2F))
(MOVEI 1 (QUOTE 23))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE P2F19))
(MOVEM 3 (SPECIAL &M030))
(MOVE 2 1)
(MOVE 1 (SPECIAL P2F))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL P2F))
(JSP 6 SPECBIND)
(0 0 (SPECIAL I))
(PUSH P (C 0 0 (QUOTE 1) 0))
(MOVE 1 (SPECIAL KNOWNF))
(CALL 1 (E LENGTH))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG17)
(MOVE 1 0 P)
(JRST 0 TAG13)
TAG17
TAG20 (MOVE 1 -2 P)
(MOVEM 1 (SPECIAL I))
(PUSH P (SPECIAL KNOWNF))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(HLRZ@ 1 1)
(MOVEM 1 -3 P)
(MOVE 1 (SPECIAL I))
(PUSH P (SPECIAL NARG))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(HLRZ@ 1 1)
(MOVEI 3 (QUOTE NARGS))
(MOVE 2 1)
(MOVEM 1 -4 P)
(MOVE 1 -3 P)
(CALL 3 (E PUTPROP))
(MOVE 1 (SPECIAL I))
(PUSH P (SPECIAL TARG))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(HLRZ@ 1 1)
(MOVEI 3 (QUOTE TARGS))
(MOVE 2 1)
(MOVEM 1 -5 P)
(MOVE 1 -3 P)
(CALL 3 (E PUTPROP))
(MOVE 1 (SPECIAL I))
(PUSH P (SPECIAL TRE))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(HLRZ@ 1 1)
(MOVEI 3 (QUOTE TRES))
(MOVE 2 1)
(MOVEM 1 -6 P)
(MOVE 1 -3 P)
(CALL 3 (E PUTPROP))
(PUSH P (C 0 0 (QUOTE 1) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG2 (MOVEI 2 (QUOTE 11))
(MOVE 1 -2 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG31)
(MOVE 1 0 P)
(JRST 0 TAG25)
TAG31
TAG32 (MOVE 1 -2 P)
(MOVEM 1 -1 P)
(PUSH P (SPECIAL TF))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(HLRZ@ 1 1)
(PUSH P 1)
(MOVE 1 (SPECIAL I))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(HLRZ@ 1 1)
(PUSH P 1)
(MOVE 1 -2 P)
(PUSH P (SPECIAL PF))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(HLRZ@ 3 1)
(POP P 2)
(MOVE 1 -6 P)
(CALL 3 (E PUTPROP))
(MOVEM 1 0 P)
(MOVE 1 -2 P)
(CALL 1 (E ADD1))
(MOVEM 1 -2 P)
(JRST 0 TAG2)
TAG25 (SUB P (C 0 0 3 3))
(PUSH P (C 0 0 (QUOTE 1) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG3 (MOVEI 2 (QUOTE 23))
(MOVE 1 -2 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG40)
(MOVE 1 0 P)
(JRST 0 TAG34)
TAG40
TAG41 (MOVE 1 -2 P)
(MOVEM 1 -1 P)
(PUSH P (SPECIAL T2F))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(HLRZ@ 1 1)
(PUSH P 1)
(MOVE 1 (SPECIAL I))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(HLRZ@ 1 1)
(PUSH P 1)
(MOVE 1 -2 P)
(PUSH P (SPECIAL P2F))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(HLRZ@ 3 1)
(POP P 2)
(MOVE 1 -6 P)
(CALL 3 (E PUTPROP))
(MOVEM 1 0 P)
(MOVE 1 -2 P)
(CALL 1 (E ADD1))
(MOVEM 1 -2 P)
(JRST 0 TAG3)
TAG34 (MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 3 3))
(MOVEM 1 0 P)
(MOVE 1 -2 P)
(CALL 1 (E ADD1))
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG13 (PUSHJ P SPECSTR)
(SUB P (C 0 0 3 3))
(MOVEI 3 (QUOTE RVAL))
(MOVEI 2 (QUOTE 2))
(MOVEI 1 (QUOTE FN))
(CALL 3 (E PUTPROP))
(MOVEI 3 (QUOTE RVAL))
(MOVEI 2 (QUOTE 1))
(MOVEI 1 (QUOTE FN2))
(CALL 3 (E PUTPROP))
(MOVE 3 (SPECIAL TARGS))
(MOVEI 2 (QUOTE (ANY)))
(MOVEI 1 (QUOTE FFALSE))
(CALL 3 (E PUTPROP))
(MOVE 3 (SPECIAL TARGS))
(MOVEI 2 (QUOTE (ANY ANY)))
(MOVEI 1 (QUOTE FFALSE2))
(CALL 3 (E PUTPROP))
(MOVEI 1 (QUOTE NIL))
TAG4 (SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP MAKELISTS SUBR)
(MOVEI 1 (QUOTE (1 1 2 13 13 13 1 1 1 1 1 1 1 1 2 13 13 13 13 13 13 1 2 2 1 2 1 2 1 1 13 2 1 2)))
(MOVEM 1 (SPECIAL NARG))
(MOVEI 1 (QUOTE ((LISTP) (LISTP) (ATOM LISTP) (ANY ANY) (NUMBER NUMBER) (NUMBER NUMBER) (NUMBER) (ANY) (~
ANY) (ANY) (ANY) (ANY) (ANY) (ANY) (ANY LISTP) (NUMBER NUMBER) (NUMBER NUMBER) (ANY ANY) (ANY ANY) (ANY ANY) (AN~
Y ANY) (NUMBER) (ANY ANY) (ANY ANY) (ANY) (ANY ANY) (ANY) (ANY ANY) (NUMBER) (NUMBER) (ANY ANY) (ANYLIST ANYLIST~
) (ANY) (ANY ANY))))
(MOVEM 1 (SPECIAL TARG))
(MOVEI 1 (QUOTE (ANY LISTP LISTP ANY NUMBER NUMBER NUMBER TF TF TF TF ANY ANY NUMBER TF TF TF TF TF TF T~
F NUMBER ANY ANY NUMBER NUMBER ANY ANY NUMBER NUMBER ANYLIST LIST ANY ANY)))
(MOVEM 1 (SPECIAL TRE))
(MOVEI 1 (QUOTE 1))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE (7 7 0 5 0 0 16 5 16 16 12 31 16 12 0 0 0 0 0 0 16 12 0 0 31 0 31 0 12 12 16 0 0)))
(MOVEM 3 (SPECIAL &M031))
(MOVE 2 1)
(MOVE 1 (SPECIAL TF))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL TF))
(MOVEI 1 (QUOTE 2))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE (12 12 0 5 0 0 16 5 16 16 16 31 16 16 0 0 0 0 0 0 31 12 0 0 12 0 12 0 16 16 7 0 0)))
(MOVEM 3 (SPECIAL &M032))
(MOVE 2 1)
(MOVE 1 (SPECIAL TF))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL TF))
(MOVEI 1 (QUOTE 3))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE (5 7 0 12 0 0 12 16 16 16 16 16 16 16 0 0 0 0 0 0 31 16 0 0 16 0 16 0 7 7 12 0 0)))
(MOVEM 3 (SPECIAL &M033))
(MOVE 2 1)
(MOVE 1 (SPECIAL TF))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL TF))
(MOVEI 1 (QUOTE 4))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE (7 12 0 7 0 0 16 16 16 16 16 16 16 16 0 0 0 0 0 0 16 12 0 0 31 0 31 0 12 12 16 0 5)))
(MOVEM 3 (SPECIAL &M034))
(MOVE 2 1)
(MOVE 1 (SPECIAL TF))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL TF))
(MOVEI 1 (QUOTE 5))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE (7 5 0 12 0 0 12 16 16 16 16 16 16 16 0 0 0 0 0 0 31 16 0 0 16 0 16 0 7 7 7 0 0)))
(MOVEM 3 (SPECIAL &M035))
(MOVE 2 1)
(MOVE 1 (SPECIAL TF))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL TF))
(MOVEI 1 (QUOTE 6))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE (12 7 0 7 0 0 16 16 16 16 16 16 16 16 0 0 0 0 0 0 16 12 0 0 31 0 31 0 12 12 12 0 5)))
(MOVEM 3 (SPECIAL &M036))
(MOVE 2 1)
(MOVE 1 (SPECIAL TF))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL TF))
(MOVEI 1 (QUOTE 7))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE (0 0 5 0 12 12 0 0 0 0 0 0 0 0 31 31 16 31 16 16 0 0 7 7 0 16 0 16 0 0 0 5 0)))
(MOVEM 3 (SPECIAL &M037))
(MOVE 2 1)
(MOVE 1 (SPECIAL TF))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL TF))
(MOVEI 1 (QUOTE 10))
(CALL 1 (E NCONS))
(HLRZ@ 3 (SPECIAL TF))
(MOVEM 3 (SPECIAL &M038))
(MOVE 2 1)
(MOVE 1 (SPECIAL TF))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL TF))
(MOVEI 1 (QUOTE 11))
(CALL 1 (E NCONS))
(HRRZ@ 3 (SPECIAL TF))
(HLRZ@ 3 3)
(MOVEM 3 (SPECIAL &M039))
(MOVE 2 1)
(MOVE 1 (SPECIAL TF))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL TF))
(CALL 0 (E GETT2F))
(MOVEM 1 (SPECIAL I))
(MOVEI 1 (QUOTE "SUCCESFUL END OF MAKELISTS"))
(JCALL 1 (E PRINTSTR))
NIL
(LAP FFALSE SUBR)
(MOVEI 1 (QUOTE NIL))
(POPJ P)
NIL
(LAP TTRUE SUBR)
(MOVEI 1 (QUOTE T))
(POPJ P)
NIL
(LAP GETEX SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL I))
(MOVE 1 (SPECIAL EXAMPLE))
(CALL 1 (E LENGTH))
(CALL 1 (E ADD1))
(MOVEM 1 (SPECIAL N9))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG6)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E PRIM))
(JRST 0 TAG2)
TAG6
TAG7
TAG1 (MOVEI 1 (QUOTE "PLEASE GIVE ME AN EXAMPLE."))
(CALL 1 (E PRINTSTR))
(MOVEI 1 (QUOTE " THE ARGUMENT LIST..."))
(CALL 1 (E PRINTSTR))
(MOVEI 1 (QUOTE 1))
(CALL 1 (E NCONS))
(MOVE 2 (SPECIAL N9))
(CALL 2 (E XCONS))
(PUSH P (SPECIAL EXAMPLE))
(PUSH P 1)
(CALL 0 (E READ))
(MOVEM 1 (SPECIAL &M040))
(MOVE 3 1)
(POP P 2)
(POP P 1)
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL EXAMPLE))
(MOVEI 1 (QUOTE "THE FUNCTION VALUE..."))
(CALL 1 (E PRINTSTR))
(MOVEI 1 (QUOTE 2))
(CALL 1 (E NCONS))
(MOVE 2 (SPECIAL N9))
(CALL 2 (E XCONS))
(PUSH P (SPECIAL EXAMPLE))
(PUSH P 1)
(CALL 0 (E READ))
(MOVEM 1 (SPECIAL &M041))
(MOVE 3 1)
(POP P 2)
(POP P 1)
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL EXAMPLE))
(MOVEI 1 (QUOTE "DID YOU MAKE AN ERROR? "))
(CALL 1 (E PRINTSTR))
(CALL 0 (E READ))
(MOVEM 1 (SPECIAL I))
(MOVEI 2 (QUOTE Y))
(CALL 2 (E EQUAL))
(JUMPN 1 TAG1)
TAG12 (MOVE 1 (SPECIAL N9))
(PUSH P (SPECIAL EXAMPLE))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(HLRZ@ 1 1)
TAG2 (JRST 0 SPECSTR)
NIL
(LAP PI12 SUBR)
(POPJ P)
NIL
(LAP PI22 SUBR)
(MOVE 1 2)
(POPJ P)
NIL
(LAP ZERO1 SUBR)
(MOVEI 1 (QUOTE 0))
(POPJ P)
NIL
(LAP ZERO2 SUBR)
(MOVEI 1 (QUOTE 0))
(POPJ P)
NIL
(LAP CONST1 SUBR)
(MOVEI 1 (QUOTE 1))
(POPJ P)
NIL
(LAP CONST2 SUBR)
(MOVEI 1 (QUOTE NIL))
(POPJ P)
NIL
(LAP INFINITY SUBR)
(MOVE 1 (SPECIAL INF))
(CALL 1 (E ADD1))
(MOVEM 1 (SPECIAL INF))
(MOVE 2 (SPECIAL LIMINF))
(JCALL 2 (E *LESS))
NIL
(LAP REC SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL I))
(0 0 (SPECIAL II))
(0 0 (SPECIAL I1))
(0 0 (SPECIAL I2))
(0 0 (SPECIAL KK))
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVEI 1 (QUOTE "WHICH: TYPE AN R(RECURSION), A(AUX.FN.), OR
B(BOTH)..."))
(CALL 1 (E PRINTSTR))
(CALL 0 (E READ))
(MOVEM 1 (SPECIAL I))
(MOVEI 2 (QUOTE (R A B)))
(CALL 2 (E MEMBER))
(JUMPN 1 TAG40)
(MOVEI 1 (QUOTE "NO,NO!! TYPE R,A, OR B ONLY..."))
(CALL 1 (E PRINTSTR))
(JRST 0 TAG1)
TAG40
TAG41 (MOVE 1 (SPECIAL I))
(JUMPE 1 TAG45)
(TDZA 1 1)
TAG45 (MOVEI 1 (QUOTE T))
(MOVEI 2 (QUOTE R))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG44)
(MOVEI 1 (QUOTE "O.K. LET'S WORK ON THE AUX.FN.
TYPE IT IN AS IF IT WERE YOUR REQUEST:"))
(JRST 0 TAG34)
TAG44
TAG46 (MOVEI 2 (QUOTE 2))
(MOVE 1 -3 P)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG51)
(CALL 0 (E PRIM2))
(MOVEM 1 (SPECIAL I))
(JRST 0 TAG50)
TAG51 (MOVEI 1 (QUOTE 1))
(CALL 1 (E GETEX))
(MOVEM 1 (SPECIAL I))
TAG52
TAG50 (MOVEI 1 (QUOTE 0))
(MOVEM 1 (SPECIAL NEX))
(MOVEI 1 (QUOTE "HOW MANY MORE EXAMPLES WILL YOU GIVE ME
(I SUGGEST 2) ...."))
(CALL 1 (E PRINTSTR))
(CALL 0 (E READ))
(MOVEM 1 (SPECIAL NEX))
(PUSH P (C 0 0 (QUOTE 1) 0))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG2 (MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG60)
(MOVE 1 0 P)
(JRST 0 TAG54)
TAG60
TAG61 (MOVE 1 -3 P)
(MOVEM 1 -1 P)
(CALL 1 (E ADD1))
(CALL 1 (E GETEX))
(MOVEM 1 (SPECIAL II))
(MOVEM 1 0 P)
(MOVE 1 -3 P)
(CALL 1 (E ADD1))
(MOVEM 1 -3 P)
(JRST 0 TAG2)
TAG54 (SUB P (C 0 0 4 4))
(HLRZ@ 1 -4 P)
(CALL 1 (E CADR))
(MOVEM 1 (SPECIAL L))
(MOVE 2 (SPECIAL ONEX))
(MOVE 1 (SPECIAL NEX))
(CALL 2 (E *PLUS))
(MOVEM 1 (SPECIAL NEX))
(MOVEI 2 (QUOTE 1))
(MOVE 1 -3 P)
(CALL 2 (E EQUAL))
(JUMPN 1 TAG64)
(MOVE 4 -2 P)
(MOVE 3 -3 P)
(MOVE 2 -4 P)
(MOVE 1 -5 P)
(CALL 4 (E REC2))
(JRST 0 TAG34)
TAG64
TAG65 (MOVEI 1 (QUOTE (ANY)))
(MOVEM 1 (SPECIAL I))
(CLEARM 1 (SPECIAL E))
(MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL MA))
(MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL MN))
(MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL MAL))
(MOVEI 2 (QUOTE 2))
(MOVE 1 (SPECIAL NEX))
(PUSH P (SPECIAL EXAMPLE))
(CALL 2 (E *PLUS))
(PUSH P 1)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVE 3 (SPECIAL L))
(MOVEM 3 (SPECIAL &M042))
(MOVE 2 1)
(POP P 1)
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL EXAMPLE))
(PUSH P (C 0 0 (QUOTE 1) 0))
(MOVE 1 (SPECIAL NEX))
(CALL 1 (E ADD1))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG3 (MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG73)
(MOVE 1 0 P)
(JRST 0 TAG67)
TAG73
TAG74 (MOVE 1 -3 P)
(MOVEM 1 -1 P)
(MOVE 2 1)
(MOVE 1 (SPECIAL EXAMPLE))
(CALL 2 (E SUFLIST))
(CALL 1 (E CAAR))
(MOVEM 1 (SPECIAL E))
(MOVE 1 (SPECIAL MA))
(JUMPE 1 TAG102)
(MOVE 1 (SPECIAL E))
(CALL 1 (E ATOM))
(JUMPN 1 TAG101)
TAG102 (TDZA 1 1)
TAG101 (MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL MA))
(MOVE 1 (SPECIAL MN))
(JUMPE 1 TAG104)
(MOVE 1 (SPECIAL E))
(CALL 1 (E NUMBER))
(JUMPN 1 TAG103)
TAG104 (TDZA 1 1)
TAG103 (MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL MN))
(MOVE 1 (SPECIAL MAL))
(JUMPE 1 TAG106)
(MOVE 1 (SPECIAL E))
(CALL 1 (E ANYLIST))
(JUMPN 1 TAG105)
TAG106 (TDZA 1 1)
TAG105 (MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL MAL))
(MOVEI 1 (QUOTE NIL))
(MOVEM 1 0 P)
(MOVE 1 -3 P)
(CALL 1 (E ADD1))
(MOVEM 1 -3 P)
(JRST 0 TAG3)
TAG67 (SUB P (C 0 0 4 4))
(MOVE 1 (SPECIAL MAL))
(JUMPE 1 TAG110)
(MOVEI 1 (QUOTE (ANYLIST)))
(MOVEM 1 (SPECIAL I))
(JRST 0 TAG107)
TAG110
TAG111
TAG107 (MOVE 1 (SPECIAL MA))
(JUMPE 1 TAG114)
(MOVEI 1 (QUOTE (ATOM)))
(MOVEM 1 (SPECIAL I))
(JRST 0 TAG113)
TAG114
TAG115
TAG113 (MOVE 1 (SPECIAL MN))
(JUMPE 1 TAG120)
(MOVEI 1 (QUOTE (NUMBER)))
(MOVEM 1 (SPECIAL I))
(JRST 0 TAG117)
TAG120
TAG121
TAG117 (MOVEI 3 (QUOTE TARGS))
(MOVE 2 (SPECIAL I))
(MOVEI 1 (QUOTE FN))
(CALL 3 (E PUTPROP))
(MOVEI 3 (QUOTE NARGS))
(MOVEI 2 (QUOTE 1))
(MOVEI 1 (QUOTE FN))
(CALL 3 (E PUTPROP))
(MOVEI 3 (QUOTE TRES))
(MOVEI 2 (QUOTE ANY))
(MOVEI 1 (QUOTE FN))
(CALL 3 (E PUTPROP))
(MOVE 1 (SPECIAL I))
(MOVEM 1 (SPECIAL IHOLD))
(MOVEI 1 (QUOTE "DO YOU KNOW THE TYPE OF ARGUMENTS
FOR THE FN? MY GUESS IS"))
(CALL 1 (E PRINTSTR))
(MOVE 1 (SPECIAL IHOLD))
(CALL 1 (E PRINC))
(MOVEI 1 (QUOTE "ANSWER Y IF YOU WANT TO MAKE A BETTER GUESS,
N IF YOU THINK THAT IT IS O.K. AS STATED ... "))
(CALL 1 (E PRINTSTR))
(CALL 0 (E READ))
(MOVEM 1 (SPECIAL I))
(MOVEI 2 (QUOTE Y))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG124)
(MOVEI 1 (QUOTE "O.K. TYPE IN ONE
OF TH FOLLOWING WORDS: ANY ANYLIST LISTP NUMBER..."))
(CALL 1 (E PRINTSTR))
(CALL 0 (E READ))
(MOVEM 1 (SPECIAL I))
(CALL 1 (E NCONS))
(MOVEI 3 (QUOTE TARGS))
(MOVE 2 1)
(MOVEI 1 (QUOTE FN))
(CALL 3 (E PUTPROP))
(MOVE 1 (SPECIAL I))
(CALL 1 (E NCONS))
(MOVEM 1 (SPECIAL IHOLD))
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG123)
TAG124
TAG130
TAG123 (PUSH P (C 0 0 (QUOTE 1) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG4 (MOVEI 2 (QUOTE 7))
(MOVE 1 -2 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG136)
(MOVE 1 0 P)
(JRST 0 TAG132)
TAG136
TAG137 (MOVE 1 -2 P)
(MOVEM 1 -1 P)
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVEI 1 (QUOTE FN))
(CALL 1 (E NCONS))
(HRRZ@ 2 -6 P)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(HLRZ@ 2 2)
(PUSH P 1)
(HRRZ@ 1 -7 P)
(CALL 1 (E CADR))
(CALL 2 (E *APPEND))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *APPEND))
(MOVE 2 1)
(HRRZ@ 1 -6 P)
(HLRZ@ 1 1)
(CALL 2 (E *APPEND))
(MOVE 2 1)
(HLRZ@ 1 -6 P)
(CALL 2 (E *APPEND))
(PUSH P 1)
(MOVE 1 -3 P)
(PUSH P (SPECIAL ORDER))
(PUSH P (SPECIAL ORD))
(CALL 1 (E SUB1))
(MOVE 2 1)
(EXCH 1 -1 P)
(CALL 2 (E SUFLIST))
(HLRZ@ 2 1)
(EXCH 1 -2 P)
(CALL 2 (E INTERSECTION))
(MOVEM 1 (SPECIAL &M043))
(MOVE 3 1)
(MOVE 2 -3 P)
(POP P 1)
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL ORD))
(MOVE 1 (SPECIAL &M043))
(SUB P (C 0 0 3 3))
(MOVEM 1 0 P)
(MOVE 1 -2 P)
(CALL 1 (E ADD1))
(MOVEM 1 -2 P)
(JRST 0 TAG4)
TAG132 (SUB P (C 0 0 3 3))
(MOVEI 1 (QUOTE 10))
(CALL 1 (E NCONS))
(HLRZ@ 3 (SPECIAL ORD))
(MOVEM 3 (SPECIAL &M044))
(MOVE 2 1)
(MOVE 1 (SPECIAL ORD))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL ORD))
(MOVEI 1 (QUOTE 11))
(CALL 1 (E NCONS))
(HRRZ@ 3 (SPECIAL ORD))
(HLRZ@ 3 3)
(MOVEM 3 (SPECIAL &M045))
(MOVE 2 1)
(MOVE 1 (SPECIAL ORD))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL ORD))
(PUSH P (C 0 0 (QUOTE 1) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG5 (MOVEI 2 (QUOTE 11))
(MOVE 1 -2 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG145)
(MOVE 1 0 P)
(JRST 0 TAG141)
TAG145
TAG146 (MOVE 1 -2 P)
(MOVEM 1 -1 P)
(CALL 1 (E NCONS))
(MOVE 2 (SPECIAL ORD))
(PUSH P 1)
(MOVE 1 -2 P)
(PUSH P 2)
(CALL 2 (E RANK))
(MOVEM 1 (SPECIAL &M046))
(MOVE 3 1)
(MOVE 2 -1 P)
(POP P 1)
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL ORD))
(MOVE 1 (SPECIAL &M046))
(SUB P (C 0 0 1 1))
(MOVEM 1 0 P)
(MOVE 1 -2 P)
(CALL 1 (E ADD1))
(MOVEM 1 -2 P)
(JRST 0 TAG5)
TAG141 (SUB P (C 0 0 3 3))
(MOVEI 1 (QUOTE "DO YOU WANT TO CUT DOWN THE POSSIBILITIES
EVEN FURTHER? Y OR N ..."))
(CALL 1 (E PRINTSTR))
(CALL 0 (E READ))
(MOVEM 1 (SPECIAL I))
(MOVEI 2 (QUOTE Y))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG151)
(PUSH P (C 0 0 (QUOTE 1) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG6 (MOVEI 2 (QUOTE 11))
(MOVE 1 -2 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG156)
(MOVE 1 0 P)
(JRST 0 TAG152)
TAG156
TAG157 (MOVE 1 -2 P)
(MOVEM 1 -1 P)
(PUSH P (SPECIAL ORD))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(HLRZ@ 1 1)
(CALL 1 (E NCONS))
(MOVE 2 -1 P)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE ORD))
(CALL 2 (E XCONS))
(CALL 1 (E PRINT))
(MOVEI 1 (QUOTE "NOW RETYPE ORD[X]"))
(CALL 1 (E PRINTSTR))
(CALL 0 (E READ))
(MOVEM 1 (SPECIAL I))
(MOVEI 2 (QUOTE S))
(CALL 2 (E EQUAL))
(JUMPN 1 TAG165)
(MOVE 1 -1 P)
(CALL 1 (E NCONS))
(MOVE 3 (SPECIAL I))
(MOVEM 3 (SPECIAL &M047))
(MOVE 2 1)
(MOVE 1 (SPECIAL ORD))
(CALL 3 (E &REPLACE))
(MOVEM 1 (SPECIAL ORD))
(JRST 0 TAG164)
TAG165
TAG166
TAG164 (MOVEI 1 (QUOTE NIL))
(MOVEM 1 0 P)
(MOVE 1 -2 P)
(CALL 1 (E ADD1))
(MOVEM 1 -2 P)
(JRST 0 TAG6)
TAG152 (SUB P (C 0 0 3 3))
(JRST 0 TAG150)
TAG151
TAG170
TAG150 (MOVE 2 (SPECIAL UNKNOWN))
(MOVE 1 (SPECIAL C1))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG173)
(MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL C1))
(JRST 0 TAG172)
TAG173
TAG174
TAG172 (MOVE 2 (SPECIAL UNKNOWN))
(MOVE 1 (SPECIAL C3))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG177)
(MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL C3))
(JRST 0 TAG176)
TAG177
TAG200
TAG176 (CLEARM 1 (SPECIAL I))
(CLEARM 1 (SPECIAL II))
(MOVE 1 (SPECIAL LIMINFBASE))
(MOVEM 1 (SPECIAL LIMINF))
(PUSH P (C 0 0 (QUOTE 1) 0))
(HLRZ@ 1 (SPECIAL ORD))
(CALL 1 (E LENGTH))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG7 (MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG206)
(MOVE 1 0 P)
(JRST 0 TAG202)
TAG206
TAG207 (MOVE 1 -3 P)
(MOVEM 1 -1 P)
(HLRZ@ 1 (SPECIAL ORD))
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL F1))
(MOVEI 2 (QUOTE 0))
(MOVE 1 (SPECIAL MSGLEVEL))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG215)
(MOVE 1 (SPECIAL ORD))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE ORD))
(CALL 2 (E XCONS))
(MOVE 2 -6 P)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE RELATEDF))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL L))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE L))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL F1))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE F1))
(CALL 2 (E XCONS))
(MOVE 2 -1 P)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE T1))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E XCONS))
(CALL 1 (E PRINT))
(JRST 0 TAG214)
TAG215
TAG216
TAG214 (PUSH P (C 0 0 (QUOTE 2) 0))
(MOVE 1 (SPECIAL NEX))
(CALL 1 (E ADD1))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG10 (MOVE 2 -4 P)
(MOVE 1 -5 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG226)
(MOVE 1 0 P)
(JRST 0 TAG222)
TAG226
TAG227 (MOVE 1 -5 P)
(MOVEM 1 -1 P)
(PUSH P (SPECIAL EXAMPLE))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(CALL 1 (E CAAR))
(MOVEM 1 (SPECIAL E))
(MOVEI 1 (QUOTE ((CAR (GET F1 TARGS)) E)))
(CALL 1 (E *EVAL))
(JUMPE 1 TAG232)
(MOVEI 2 (QUOTE NIL))
(MOVE 1 (SPECIAL GOODEX))
(CALL 2 (E EQUAL))
(JUMPN 1 TAG231)
(HLRZ@ 1 (SPECIAL GOODEX))
(PUSH P (SPECIAL F1))
(CALLF@ 1 0 P)
(MOVE 2 (SPECIAL C1))
(CALL 2 (E EQUAL))
(SUB P (C 0 0 1 1))
(JUMPN 1 TAG231)
TAG232 (TDZA 1 1)
TAG231 (MOVEI 1 (QUOTE T))
(MOVEM 1 -3 P)
(MOVE 1 -2 P)
(JUMPE 1 TAG240)
(MOVE 1 0 P)
(JUMPE 1 TAG242)
(MOVE 1 -3 P)
(JUMPN 1 TAG241)
TAG242 (TDZA 1 1)
TAG241 (MOVEI 1 (QUOTE T))
(JRST 0 TAG237)
TAG240 (MOVEI 1 (QUOTE T))
(MOVEM 1 -2 P)
(MOVE 1 -3 P)
TAG243
TAG237 (MOVEM 1 0 P)
(MOVE 1 -5 P)
(CALL 1 (E ADD1))
(MOVEM 1 -5 P)
(JRST 0 TAG10)
TAG222 (SUB P (C 0 0 6 6))
(JUMPE 1 TAG221)
(PUSH P (C 0 0 (QUOTE 1) 0))
(HRRZ@ 1 (SPECIAL ORD))
(HLRZ@ 1 1)
(CALL 1 (E LENGTH))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG11 (MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG251)
(MOVE 1 0 P)
(JRST 0 TAG245)
TAG251
TAG252 (MOVE 1 -3 P)
(MOVEM 1 -1 P)
(HRRZ@ 1 (SPECIAL ORD))
(HLRZ@ 1 1)
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL F2))
(MOVEI 2 (QUOTE 1))
(MOVE 1 (SPECIAL MSGLEVEL))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG260)
(MOVE 1 (SPECIAL F2))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE F2))
(CALL 2 (E XCONS))
(MOVE 2 -1 P)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE T2))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE 2))
(CALL 2 (E XCONS))
(CALL 1 (E PRINT))
(JRST 0 TAG257)
TAG260
TAG261
TAG257 (PUSH P (C 0 0 (QUOTE 2) 0))
(MOVE 1 (SPECIAL NEX))
(CALL 1 (E ADD1))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG12 (MOVE 2 -4 P)
(MOVE 1 -5 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG271)
(MOVE 1 0 P)
(JRST 0 TAG265)
TAG271
TAG272 (MOVE 1 -5 P)
(MOVEM 1 -1 P)
(PUSH P (SPECIAL EXAMPLE))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(CALL 1 (E CAAR))
(MOVEM 1 (SPECIAL E))
(MOVEI 1 (QUOTE ((CAR (GET F2 TARGS)) E)))
(CALL 1 (E *EVAL))
(JUMPE 1 TAG275)
(MOVE 1 (SPECIAL GOODEX))
(JUMPE 1 TAG274)
(HLRZ@ 1 1)
(PUSH P (SPECIAL F2))
(CALLF@ 1 0 P)
(HRRZ@ 2 (SPECIAL GOODEX))
(HLRZ@ 2 2)
(CALL 2 (E EQUAL))
(SUB P (C 0 0 1 1))
(JUMPN 1 TAG274)
TAG275 (TDZA 1 1)
TAG274 (MOVEI 1 (QUOTE T))
(MOVEM 1 -3 P)
(MOVE 1 -2 P)
(JUMPE 1 TAG303)
(MOVE 1 0 P)
(JUMPE 1 TAG305)
(MOVE 1 -3 P)
(JUMPN 1 TAG304)
TAG305 (TDZA 1 1)
TAG304 (MOVEI 1 (QUOTE T))
(JRST 0 TAG302)
TAG303 (MOVEI 1 (QUOTE T))
(MOVEM 1 -2 P)
(MOVE 1 -3 P)
TAG306
TAG302 (MOVEM 1 0 P)
(MOVE 1 -5 P)
(CALL 1 (E ADD1))
(MOVEM 1 -5 P)
(JRST 0 TAG12)
TAG265 (SUB P (C 0 0 6 6))
(JUMPE 1 TAG264)
(PUSH P (C 0 0 (QUOTE 1) 0))
(HRRZ@ 1 (SPECIAL ORD))
(CALL 1 (E CDDDR))
(CALL 1 (E CADDDR))
(CALL 1 (E LENGTH))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG13 (MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG314)
(MOVE 1 0 P)
(JRST 0 TAG310)
TAG314
TAG315 (MOVE 1 -3 P)
(MOVEM 1 -1 P)
(HRRZ@ 1 (SPECIAL ORD))
(CALL 1 (E CDDDR))
(CALL 1 (E CADDDR))
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL F8))
(MOVEI 2 (QUOTE 11))
(MOVE 1 (SPECIAL MSGLEVEL))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG323)
(MOVE 1 (SPECIAL F8))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE F8))
(CALL 2 (E XCONS))
(MOVE 2 -1 P)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE T8))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE 10))
(CALL 2 (E XCONS))
(CALL 1 (E PRINT))
(JRST 0 TAG322)
TAG323
TAG324
TAG322 (PUSH P (C 0 0 (QUOTE 2) 0))
(MOVE 1 (SPECIAL NEX))
(CALL 1 (E ADD1))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG14 (MOVE 2 -4 P)
(MOVE 1 -5 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG334)
(MOVE 1 0 P)
(JRST 0 TAG330)
TAG334
TAG335 (MOVE 1 -5 P)
(MOVEM 1 -1 P)
(PUSH P (SPECIAL EXAMPLE))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(CALL 1 (E CAAR))
(MOVEM 1 (SPECIAL E))
(MOVEI 1 (QUOTE ((CAR (GET F8 TARGS)) E)))
(CALL 1 (E *EVAL))
(JUMPE 1 TAG340)
(MOVEI 2 (QUOTE NIL))
(MOVE 1 (SPECIAL GOODEX2))
(CALL 2 (E EQUAL))
(JUMPN 1 TAG337)
(HLRZ@ 1 (SPECIAL GOODEX2))
(PUSH P (SPECIAL F8))
(CALLF@ 1 0 P)
(MOVE 2 (SPECIAL C3))
(CALL 2 (E EQUAL))
(SUB P (C 0 0 1 1))
(JUMPN 1 TAG337)
TAG340 (TDZA 1 1)
TAG337 (MOVEI 1 (QUOTE T))
(MOVEM 1 -3 P)
(MOVE 1 -2 P)
(JUMPE 1 TAG346)
(MOVE 1 0 P)
(JUMPE 1 TAG350)
(MOVE 1 -3 P)
(JUMPN 1 TAG347)
TAG350 (TDZA 1 1)
TAG347 (MOVEI 1 (QUOTE T))
(JRST 0 TAG345)
TAG346 (MOVEI 1 (QUOTE T))
(MOVEM 1 -2 P)
(MOVE 1 -3 P)
TAG351
TAG345 (MOVEM 1 0 P)
(MOVE 1 -5 P)
(CALL 1 (E ADD1))
(MOVEM 1 -5 P)
(JRST 0 TAG14)
TAG330 (SUB P (C 0 0 6 6))
(JUMPE 1 TAG327)
(PUSH P (C 0 0 (QUOTE 1) 0))
(HRRZ@ 1 (SPECIAL ORD))
(CALL 1 (E CDDDR))
(CALL 1 (E CDDDDR))
(HLRZ@ 1 1)
(CALL 1 (E LENGTH))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG15 (MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG357)
(MOVE 1 0 P)
(JRST 0 TAG353)
TAG357
TAG360 (MOVE 1 -3 P)
(MOVEM 1 -1 P)
(HRRZ@ 1 (SPECIAL ORD))
(CALL 1 (E CDDDR))
(CALL 1 (E CDDDDR))
(HLRZ@ 1 1)
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL F9))
(MOVEI 2 (QUOTE 12))
(MOVE 1 (SPECIAL MSGLEVEL))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG366)
(MOVE 1 (SPECIAL F9))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE F9))
(CALL 2 (E XCONS))
(MOVE 2 -1 P)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE T9))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE 11))
(CALL 2 (E XCONS))
(CALL 1 (E PRINT))
(JRST 0 TAG365)
TAG366
TAG367
TAG365 (PUSH P (C 0 0 (QUOTE 2) 0))
(MOVE 1 (SPECIAL NEX))
(CALL 1 (E ADD1))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG16 (MOVE 2 -4 P)
(MOVE 1 -5 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG377)
(MOVE 1 0 P)
(JRST 0 TAG373)
TAG377
TAG400 (MOVE 1 -5 P)
(MOVEM 1 -1 P)
(PUSH P (SPECIAL EXAMPLE))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(CALL 1 (E CAAR))
(MOVEM 1 (SPECIAL E))
(MOVEI 1 (QUOTE ((CAR (GET F9 TARGS)) E)))
(CALL 1 (E *EVAL))
(JUMPE 1 TAG403)
(MOVE 1 (SPECIAL GOODEX2))
(JUMPE 1 TAG402)
(HLRZ@ 1 1)
(PUSH P (SPECIAL F9))
(CALLF@ 1 0 P)
(HRRZ@ 2 (SPECIAL GOODEX2))
(HLRZ@ 2 2)
(CALL 2 (E EQUAL))
(SUB P (C 0 0 1 1))
(JUMPN 1 TAG402)
TAG403 (TDZA 1 1)
TAG402 (MOVEI 1 (QUOTE T))
(MOVEM 1 -3 P)
(MOVE 1 -2 P)
(JUMPE 1 TAG411)
(MOVE 1 0 P)
(JUMPE 1 TAG413)
(MOVE 1 -3 P)
(JUMPN 1 TAG412)
TAG413 (TDZA 1 1)
TAG412 (MOVEI 1 (QUOTE T))
(JRST 0 TAG410)
TAG411 (MOVEI 1 (QUOTE T))
(MOVEM 1 -2 P)
(MOVE 1 -3 P)
TAG414
TAG410 (MOVEM 1 0 P)
(MOVE 1 -5 P)
(CALL 1 (E ADD1))
(MOVEM 1 -5 P)
(JRST 0 TAG16)
TAG373 (SUB P (C 0 0 6 6))
(JUMPE 1 TAG372)
(PUSH P (C 0 0 (QUOTE 1) 0))
(HRRZ@ 1 (SPECIAL ORD))
(CALL 1 (E CADR))
(CALL 1 (E LENGTH))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG17 (MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG422)
(MOVE 1 0 P)
(JRST 0 TAG416)
TAG422
TAG423 (MOVE 1 -3 P)
(MOVEM 1 -1 P)
(HRRZ@ 1 (SPECIAL ORD))
(CALL 1 (E CADR))
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL F3))
(MOVEI 2 (QUOTE 2))
(MOVE 1 (SPECIAL MSGLEVEL))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG431)
(MOVE 1 (SPECIAL F3))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE F3))
(CALL 2 (E XCONS))
(MOVE 2 -1 P)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE T3))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE 3))
(CALL 2 (E XCONS))
(CALL 1 (E PRINT))
(JRST 0 TAG430)
TAG431
TAG432
TAG430 (PUSH P (C 0 0 (QUOTE 2) 0))
(MOVE 1 (SPECIAL NEX))
(CALL 1 (E ADD1))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG20 (MOVE 2 -4 P)
(MOVE 1 -5 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG442)
(MOVE 1 0 P)
(JRST 0 TAG436)
TAG442
TAG443 (MOVE 1 -5 P)
(MOVEM 1 -1 P)
(PUSH P (SPECIAL EXAMPLE))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(CALL 1 (E CAAR))
(MOVEM 1 (SPECIAL E))
(CALL 1 (E GT))
(JUMPN 1 TAG450)
(MOVEI 1 (QUOTE ((CAR (GET F3 TARGS)) E)))
(CALL 1 (E *EVAL))
(JUMPN 1 TAG450)
(TDZA 1 1)
TAG450 (MOVEI 1 (QUOTE T))
(MOVEM 1 -3 P)
(MOVE 1 -2 P)
(JUMPE 1 TAG453)
(MOVE 1 0 P)
(JUMPE 1 TAG455)
(MOVE 1 -3 P)
(JUMPN 1 TAG454)
TAG455 (TDZA 1 1)
TAG454 (MOVEI 1 (QUOTE T))
(JRST 0 TAG452)
TAG453 (MOVEI 1 (QUOTE T))
(MOVEM 1 -2 P)
(MOVE 1 -3 P)
TAG456
TAG452 (MOVEM 1 0 P)
(MOVE 1 -5 P)
(CALL 1 (E ADD1))
(MOVEM 1 -5 P)
(JRST 0 TAG20)
TAG436 (SUB P (C 0 0 6 6))
(JUMPE 1 TAG435)
(PUSH P (C 0 0 (QUOTE 1) 0))
(HRRZ@ 1 (SPECIAL ORD))
(CALL 1 (E CADDR))
(CALL 1 (E LENGTH))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG21 (MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG464)
(MOVE 1 0 P)
(JRST 0 TAG460)
TAG464
TAG465 (MOVE 1 -3 P)
(MOVEM 1 -1 P)
(HRRZ@ 1 (SPECIAL ORD))
(CALL 1 (E CADDR))
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL F4))
(MOVEI 2 (QUOTE FN))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG473)
(MOVE 1 (SPECIAL TWICELIMINF))
(MOVEM 1 (SPECIAL LIMINF))
(JRST 0 TAG472)
TAG473
TAG474
TAG472 (MOVEI 2 (QUOTE 3))
(MOVE 1 (SPECIAL MSGLEVEL))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG477)
(MOVE 2 (SPECIAL TARGS))
(MOVE 1 (SPECIAL F4))
(CALL 2 (E GET))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE GETF4TARGS))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL F4))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE F4))
(CALL 2 (E XCONS))
(MOVE 2 -1 P)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE T4))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE 4))
(CALL 2 (E XCONS))
(CALL 1 (E PRINT))
(JRST 0 TAG476)
TAG477
TAG500
TAG476 (PUSH P (C 0 0 (QUOTE 2) 0))
(MOVE 1 (SPECIAL NEX))
(CALL 1 (E ADD1))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG22 (MOVE 2 -4 P)
(MOVE 1 -5 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG510)
(MOVE 1 0 P)
(JRST 0 TAG504)
TAG510
TAG511 (MOVE 1 -5 P)
(MOVEM 1 -1 P)
(PUSH P (SPECIAL EXAMPLE))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(CALL 1 (E CAAR))
(MOVEM 1 (SPECIAL E))
(CALL 1 (E GT))
(JUMPN 1 TAG516)
(MOVEI 1 (QUOTE ((CAR (GET F4 TARGS)) (F3 E))))
(CALL 1 (E *EVAL))
(JUMPN 1 TAG516)
(TDZA 1 1)
TAG516 (MOVEI 1 (QUOTE T))
(MOVEM 1 -3 P)
(MOVE 1 -2 P)
(JUMPE 1 TAG521)
(MOVE 1 0 P)
(JUMPE 1 TAG523)
(MOVE 1 -3 P)
(JUMPN 1 TAG522)
TAG523 (TDZA 1 1)
TAG522 (MOVEI 1 (QUOTE T))
(JRST 0 TAG520)
TAG521 (MOVEI 1 (QUOTE T))
(MOVEM 1 -2 P)
(MOVE 1 -3 P)
TAG524
TAG520 (MOVEM 1 0 P)
(MOVE 1 -5 P)
(CALL 1 (E ADD1))
(MOVEM 1 -5 P)
(JRST 0 TAG22)
TAG504 (SUB P (C 0 0 6 6))
(JUMPE 1 TAG503)
(PUSH P (C 0 0 (QUOTE 1) 0))
(HRRZ@ 1 (SPECIAL ORD))
(CALL 1 (E CDDDR))
(HLRZ@ 1 1)
(CALL 1 (E LENGTH))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG23 (MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG532)
(MOVE 1 0 P)
(JRST 0 TAG526)
TAG532
TAG533 (MOVE 1 -3 P)
(MOVEM 1 -1 P)
(HRRZ@ 1 (SPECIAL ORD))
(CALL 1 (E CDDDR))
(HLRZ@ 1 1)
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL F5))
(MOVEI 2 (QUOTE 4))
(MOVE 1 (SPECIAL MSGLEVEL))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG541)
(MOVE 1 (SPECIAL F5))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE F5))
(CALL 2 (E XCONS))
(MOVE 2 -1 P)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE T5))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE 5))
(CALL 2 (E XCONS))
(CALL 1 (E PRINT))
(JRST 0 TAG540)
TAG541
TAG542
TAG540 (PUSH P (C 0 0 (QUOTE 2) 0))
(MOVE 1 (SPECIAL NEX))
(CALL 1 (E ADD1))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG24 (MOVE 2 -4 P)
(MOVE 1 -5 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG552)
(MOVE 1 0 P)
(JRST 0 TAG546)
TAG552
TAG553 (MOVE 1 -5 P)
(MOVEM 1 -1 P)
(PUSH P (SPECIAL EXAMPLE))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(CALL 1 (E CAAR))
(MOVEM 1 (SPECIAL E))
(CALL 1 (E GT))
(JUMPN 1 TAG560)
(MOVEI 1 (QUOTE ((CAR (GET F5 TARGS)) E)))
(CALL 1 (E *EVAL))
(JUMPN 1 TAG560)
(TDZA 1 1)
TAG560 (MOVEI 1 (QUOTE T))
(MOVEM 1 -3 P)
(MOVE 1 -2 P)
(JUMPE 1 TAG563)
(MOVE 1 0 P)
(JUMPE 1 TAG565)
(MOVE 1 -3 P)
(JUMPN 1 TAG564)
TAG565 (TDZA 1 1)
TAG564 (MOVEI 1 (QUOTE T))
(JRST 0 TAG562)
TAG563 (MOVEI 1 (QUOTE T))
(MOVEM 1 -2 P)
(MOVE 1 -3 P)
TAG566
TAG562 (MOVEM 1 0 P)
(MOVE 1 -5 P)
(CALL 1 (E ADD1))
(MOVEM 1 -5 P)
(JRST 0 TAG24)
TAG546 (SUB P (C 0 0 6 6))
(JUMPE 1 TAG545)
(PUSH P (C 0 0 (QUOTE 1) 0))
(HRRZ@ 1 (SPECIAL ORD))
(CALL 1 (E CDDDR))
(CALL 1 (E CADR))
(CALL 1 (E LENGTH))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG25 (MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG574)
(MOVE 1 0 P)
(JRST 0 TAG570)
TAG574
TAG575 (MOVE 1 -3 P)
(MOVEM 1 -1 P)
(HRRZ@ 1 (SPECIAL ORD))
(CALL 1 (E CDDDR))
(CALL 1 (E CADR))
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL F6))
(MOVEI 2 (QUOTE FN))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG603)
(MOVE 1 (SPECIAL TRIPLELIMINF))
(MOVEM 1 (SPECIAL LIMINF))
(JRST 0 TAG602)
TAG603
TAG604
TAG602 (MOVEI 2 (QUOTE 5))
(MOVE 1 (SPECIAL MSGLEVEL))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG607)
(MOVE 1 (SPECIAL LIMINF))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE (I HAVE CHOSEN LIMINF TO BE)))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL F6))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE F6))
(CALL 2 (E XCONS))
(MOVE 2 -1 P)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE T6))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE 6))
(CALL 2 (E XCONS))
(CALL 1 (E PRINT))
(JRST 0 TAG606)
TAG607
TAG610
TAG606 (PUSH P (C 0 0 (QUOTE 2) 0))
(MOVE 1 (SPECIAL NEX))
(CALL 1 (E ADD1))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG26 (MOVE 2 -4 P)
(MOVE 1 -5 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG620)
(MOVE 1 0 P)
(JRST 0 TAG614)
TAG620
TAG621 (MOVE 1 -5 P)
(MOVEM 1 -1 P)
(PUSH P (SPECIAL EXAMPLE))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(CALL 1 (E CAAR))
(MOVEM 1 (SPECIAL E))
(CALL 1 (E GT))
(JUMPN 1 TAG626)
(MOVEI 1 (QUOTE ((CAR (GET F6 TARGS)) (F5 E))))
(CALL 1 (E *EVAL))
(JUMPN 1 TAG626)
(TDZA 1 1)
TAG626 (MOVEI 1 (QUOTE T))
(MOVEM 1 -3 P)
(MOVE 1 -2 P)
(JUMPE 1 TAG631)
(MOVE 1 0 P)
(JUMPE 1 TAG633)
(MOVE 1 -3 P)
(JUMPN 1 TAG632)
TAG633 (TDZA 1 1)
TAG632 (MOVEI 1 (QUOTE T))
(JRST 0 TAG630)
TAG631 (MOVEI 1 (QUOTE T))
(MOVEM 1 -2 P)
(MOVE 1 -3 P)
TAG634
TAG630 (MOVEM 1 0 P)
(MOVE 1 -5 P)
(CALL 1 (E ADD1))
(MOVEM 1 -5 P)
(JRST 0 TAG26)
TAG614 (SUB P (C 0 0 6 6))
(JUMPE 1 TAG613)
(PUSH P (C 0 0 (QUOTE 1) 0))
(HRRZ@ 1 (SPECIAL ORD))
(CALL 1 (E CDDDR))
(CALL 1 (E CADDR))
(CALL 1 (E LENGTH))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG27 (MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG642)
(MOVE 1 0 P)
(JRST 0 TAG636)
TAG642
TAG643 (MOVE 1 -3 P)
(MOVEM 1 -1 P)
(HRRZ@ 1 (SPECIAL ORD))
(CALL 1 (E CDDDR))
(CALL 1 (E CADDR))
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL F7))
(MOVEI 2 (QUOTE 6))
(MOVE 1 (SPECIAL MSGLEVEL))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG651)
(MOVE 1 (SPECIAL F7))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE F7))
(CALL 2 (E XCONS))
(MOVE 2 -1 P)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE T7))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE 7))
(CALL 2 (E XCONS))
(CALL 1 (E PRINT))
(JRST 0 TAG650)
TAG651
TAG652
TAG650 (PUSH P (C 0 0 (QUOTE 2) 0))
(MOVEI 2 (QUOTE 2))
(MOVE 1 (SPECIAL NEX))
(CALL 2 (E *PLUS))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG30 (MOVE 2 -4 P)
(MOVE 1 -5 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG660)
(MOVE 1 0 P)
(JRST 0 TAG654)
TAG660
TAG661 (MOVE 1 -5 P)
(MOVEM 1 -1 P)
(PUSH P (SPECIAL EXAMPLE))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(CALL 1 (E CAAR))
(MOVEM 1 (SPECIAL E))
(CALL 1 (E GT))
(JUMPN 1 TAG666)
(MOVEI 1 (QUOTE ((CAR (GET F7 TARGS)) (F4 (F3 E)))))
(CALL 1 (E *EVAL))
(JUMPN 1 TAG666)
(TDZA 1 1)
TAG666 (MOVEI 1 (QUOTE T))
(MOVEM 1 -3 P)
(MOVE 1 -2 P)
(JUMPE 1 TAG671)
(MOVE 1 0 P)
(JUMPE 1 TAG673)
(MOVE 1 -3 P)
(JUMPN 1 TAG672)
TAG673 (TDZA 1 1)
TAG672 (MOVEI 1 (QUOTE T))
(JRST 0 TAG670)
TAG671 (MOVEI 1 (QUOTE T))
(MOVEM 1 -2 P)
(MOVE 1 -3 P)
TAG674
TAG670 (MOVEM 1 0 P)
(MOVE 1 -5 P)
(CALL 1 (E ADD1))
(MOVEM 1 -5 P)
(JRST 0 TAG30)
TAG654 (SUB P (C 0 0 6 6))
(MOVEM 1 -44 P)
(PUSH P (C 0 0 (QUOTE 2) 0))
(MOVEI 2 (QUOTE 2))
(MOVE 1 (SPECIAL NEX))
(CALL 2 (E *PLUS))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG31 (MOVE 2 -4 P)
(MOVE 1 -5 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG702)
(MOVE 1 0 P)
(JRST 0 TAG676)
TAG702
TAG703 (MOVE 1 -5 P)
(MOVEM 1 -1 P)
(PUSH P (SPECIAL EXAMPLE))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(CALL 1 (E CAAR))
(MOVEM 1 (SPECIAL E))
(CALL 1 (E GT))
(JUMPN 1 TAG710)
(MOVEI 1 (QUOTE ((CADR (GET F7 TARGS)) (F6 (F5 E)))))
(CALL 1 (E *EVAL))
(JUMPN 1 TAG710)
(TDZA 1 1)
TAG710 (MOVEI 1 (QUOTE T))
(MOVEM 1 -3 P)
(MOVE 1 -2 P)
(JUMPE 1 TAG713)
(MOVE 1 0 P)
(JUMPE 1 TAG715)
(MOVE 1 -3 P)
(JUMPN 1 TAG714)
TAG715 (TDZA 1 1)
TAG714 (MOVEI 1 (QUOTE T))
(JRST 0 TAG712)
TAG713 (MOVEI 1 (QUOTE T))
(MOVEM 1 -2 P)
(MOVE 1 -3 P)
TAG716
TAG712 (MOVEM 1 0 P)
(MOVE 1 -5 P)
(CALL 1 (E ADD1))
(MOVEM 1 -5 P)
(JRST 0 TAG31)
TAG676 (SUB P (C 0 0 6 6))
(MOVEM 1 -45 P)
(MOVE 1 -44 P)
(JUMPE 1 TAG721)
(MOVE 1 -45 P)
(JUMPE 1 TAG721)
(MOVEI 1 (QUOTE 0))
(MOVEM 1 (SPECIAL INF))
(PUSH P (C 0 0 (QUOTE 2) 0))
(MOVE 1 (SPECIAL NEX))
(CALL 1 (E ADD1))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG32 (MOVE 2 -4 P)
(MOVE 1 -5 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG727)
(MOVE 1 0 P)
(JRST 0 TAG723)
TAG727
TAG730 (MOVE 1 -5 P)
(MOVEM 1 -1 P)
(MOVEI 1 (QUOTE 0))
(MOVEM 1 (SPECIAL INF))
(MOVE 1 -1 P)
(PUSH P (SPECIAL EXAMPLE))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(CALL 1 (E CAAR))
(MOVEM 1 (SPECIAL E))
(MOVE 1 -1 P)
(PUSH P (SPECIAL EXAMPLE))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(CALL 1 (E CADAR))
(PUSH P 1)
(MOVEI 1 (QUOTE (FN E)))
(CALL 1 (E *EVAL))
(POP P 2)
(CALL 2 (E EQUAL))
(MOVEM 1 -3 P)
(MOVE 1 -2 P)
(JUMPE 1 TAG736)
(MOVE 1 0 P)
(JUMPE 1 TAG740)
(MOVE 1 -3 P)
(JUMPN 1 TAG737)
TAG740 (TDZA 1 1)
TAG737 (MOVEI 1 (QUOTE T))
(JRST 0 TAG735)
TAG736 (MOVEI 1 (QUOTE T))
(MOVEM 1 -2 P)
(MOVE 1 -3 P)
TAG741
TAG735 (MOVEM 1 0 P)
(MOVE 1 -5 P)
(CALL 1 (E ADD1))
(MOVEM 1 -5 P)
(JRST 0 TAG32)
TAG723 (MOVEM 1 (SPECIAL I))
(SUB P (C 0 0 6 6))
(JRST 0 TAG720)
TAG721
TAG743
TAG720 (MOVE 1 (SPECIAL I))
(JUMPE 1 TAG746)
(MOVEI 1 (QUOTE "
HOORAY, HOORAY!!!
SUCCESS!!
"))
(CALL 1 (E PRINTSTR))
(JRST 0 TAG745)
TAG746
TAG747
TAG745 (MOVE 1 (SPECIAL I))
(MOVEM 1 0 P)
(MOVE 1 (SPECIAL I))
(JUMPE 1 TAG752)
(MOVE 1 0 P)
(JRST 0 TAG636)
TAG752
TAG753 (MOVE 1 -3 P)
(CALL 1 (E ADD1))
(MOVEM 1 -3 P)
(JRST 0 TAG27)
TAG636 (SUB P (C 0 0 4 4))
(JRST 0 TAG612)
TAG613
TAG755
TAG612 (MOVEI 1 (QUOTE NIL))
(MOVEM 1 0 P)
(MOVE 1 (SPECIAL I))
(JUMPE 1 TAG760)
(MOVE 1 0 P)
(JRST 0 TAG570)
TAG760
TAG761 (MOVE 1 -3 P)
(CALL 1 (E ADD1))
(MOVEM 1 -3 P)
(JRST 0 TAG25)
TAG570 (SUB P (C 0 0 4 4))
(JRST 0 TAG544)
TAG545
TAG763
TAG544 (MOVEI 1 (QUOTE NIL))
(MOVEM 1 0 P)
(MOVE 1 (SPECIAL I))
(JUMPE 1 TAG766)
(MOVE 1 0 P)
(JRST 0 TAG526)
TAG766
TAG767 (MOVE 1 -3 P)
(CALL 1 (E ADD1))
(MOVEM 1 -3 P)
(JRST 0 TAG23)
TAG526 (SUB P (C 0 0 4 4))
(JRST 0 TAG502)
TAG503
TAG771
TAG502 (MOVEI 1 (QUOTE NIL))
(MOVEM 1 0 P)
(MOVE 1 (SPECIAL I))
(JUMPE 1 TAG774)
(MOVE 1 0 P)
(JRST 0 TAG460)
TAG774
TAG775 (MOVE 1 -3 P)
(CALL 1 (E ADD1))
(MOVEM 1 -3 P)
(JRST 0 TAG21)
TAG460 (SUB P (C 0 0 4 4))
(JRST 0 TAG434)
TAG435
TAG777
TAG434 (MOVEI 1 (QUOTE NIL))
(MOVEM 1 0 P)
(MOVE 1 (SPECIAL I))
(JUMPE 1 TAG1002)
(MOVE 1 0 P)
(JRST 0 TAG416)
TAG1002
TAG1003
(MOVE 1 -3 P)
(CALL 1 (E ADD1))
(MOVEM 1 -3 P)
(JRST 0 TAG17)
TAG416 (SUB P (C 0 0 4 4))
(JRST 0 TAG371)
TAG372
TAG1005
TAG371 (MOVEI 1 (QUOTE NIL))
(MOVEM 1 0 P)
(MOVE 1 (SPECIAL I))
(JUMPE 1 TAG1010)
(MOVE 1 0 P)
(JRST 0 TAG353)
TAG1010
TAG1011
(MOVE 1 -3 P)
(CALL 1 (E ADD1))
(MOVEM 1 -3 P)
(JRST 0 TAG15)
TAG353 (SUB P (C 0 0 4 4))
(JRST 0 TAG326)
TAG327
TAG1013
TAG326 (MOVEI 1 (QUOTE NIL))
(MOVEM 1 0 P)
(MOVE 1 (SPECIAL I))
(JUMPE 1 TAG1016)
(MOVE 1 0 P)
(JRST 0 TAG310)
TAG1016
TAG1017
(MOVE 1 -3 P)
(CALL 1 (E ADD1))
(MOVEM 1 -3 P)
(JRST 0 TAG13)
TAG310 (SUB P (C 0 0 4 4))
(JRST 0 TAG263)
TAG264
TAG1021
TAG263 (MOVEI 1 (QUOTE NIL))
(MOVEM 1 0 P)
(MOVE 1 (SPECIAL I))
(JUMPE 1 TAG1024)
(MOVE 1 0 P)
(JRST 0 TAG245)
TAG1024
TAG1025
(MOVE 1 -3 P)
(CALL 1 (E ADD1))
(MOVEM 1 -3 P)
(JRST 0 TAG11)
TAG245 (SUB P (C 0 0 4 4))
(JRST 0 TAG220)
TAG221
TAG1027
TAG220 (MOVEI 1 (QUOTE NIL))
(MOVEM 1 0 P)
(MOVE 1 (SPECIAL I))
(JUMPE 1 TAG1032)
(MOVE 1 0 P)
(JRST 0 TAG202)
TAG1032
TAG1033
(MOVE 1 -3 P)
(CALL 1 (E ADD1))
(MOVEM 1 -3 P)
(JRST 0 TAG7)
TAG202 (SUB P (C 0 0 4 4))
(MOVEI 2 (QUOTE 0))
(MOVE 1 (SPECIAL MSGLEVEL))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG1036)
(MOVE 1 (SPECIAL C4))
(CALL 1 (E NCONS))
(MOVE 2 (SPECIAL C3))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL C2))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL C1))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE C1234))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL F9))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL F8))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL F7))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL F6))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL F5))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL F4))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL F3))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL F2))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL F1))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE F123456789))
(CALL 2 (E XCONS))
(CALL 1 (E PRINT))
(JRST 0 TAG1035)
TAG1036
TAG1037
TAG1035
(MOVE 2 (SPECIAL KNOWNF))
(MOVE 1 -5 P)
(CALL 2 (E CONS))
(MOVEM 1 (SPECIAL KNOWNF))
(MOVEI 2 (QUOTE TARGS))
(MOVEI 1 (QUOTE FN))
(CALL 2 (E GET))
(MOVE 2 (SPECIAL TARG))
(CALL 2 (E CONS))
(MOVEM 1 (SPECIAL TARG))
(MOVE 2 (SPECIAL NARG))
(MOVE 1 -3 P)
(CALL 2 (E CONS))
(MOVEM 1 (SPECIAL NARG))
(MOVEI 2 (QUOTE TRES))
(MOVEI 1 (QUOTE FN))
(CALL 2 (E GET))
(MOVE 2 (SPECIAL TRE))
(CALL 2 (E CONS))
(MOVEM 1 (SPECIAL TRE))
(MOVE 2 (SPECIAL BA1))
(MOVE 1 -5 P)
(CALL 2 (E CONS))
(MOVEM 1 (SPECIAL BA1))
(MOVEI 2 (QUOTE 2))
(MOVE 1 (SPECIAL MSGLEVEL))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG1042)
(MOVE 1 (SPECIAL BA1))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE BA1))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL TRE))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL NARG))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL TARG))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE TARGNARGTRE))
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL KNOWNF))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE KNOWNF))
(CALL 2 (E XCONS))
(CALL 1 (E PRINT))
(JRST 0 TAG1041)
TAG1042
TAG1043
TAG1041
(MOVE 4 (SPECIAL TF))
(MOVEI 3 (QUOTE 11.0))
(MOVEI 2 (QUOTE CONS))
(MOVEI 1 (QUOTE NIL))
(CALL 4 (E &VECTOR))
(MOVEM 1 (SPECIAL TF))
(CALL 0 (E FINALIZE))
(MOVE 3 (SPECIAL NARGS))
(MOVEI 2 (QUOTE 1))
(MOVE 1 -5 P)
(CALL 3 (E PUTPROP))
(MOVE 3 (SPECIAL TARGS))
(MOVE 2 (SPECIAL IHOLD))
(MOVE 1 -5 P)
(CALL 3 (E PUTPROP))
(MOVE 3 (SPECIAL TRES))
(MOVEI 2 (QUOTE (ANY)))
(MOVE 1 -5 P)
(CALL 3 (E PUTPROP))
(PUSH P (C 0 0 (QUOTE 1) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG33 (MOVEI 2 (QUOTE 11))
(MOVE 1 -2 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG1051)
(MOVE 1 0 P)
(JRST 0 TAG1045)
TAG1051
TAG1052
(MOVE 1 -2 P)
(MOVEM 1 -1 P)
(PUSH P (SPECIAL PF))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(HLRZ@ 3 1)
(MOVEI 2 (QUOTE 13))
(MOVE 1 -10 P)
(CALL 3 (E PUTPROP))
(MOVEM 1 0 P)
(MOVE 1 -2 P)
(CALL 1 (E ADD1))
(MOVEM 1 -2 P)
(JRST 0 TAG33)
TAG1045
(SUB P (C 0 0 3 3))
(MOVE 1 -5 P)
TAG34 (SUB P (C 0 0 6 6))
(JRST 0 SPECSTR)
NIL
(LAP GT SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL E))
(MOVE 1 (SPECIAL GOODEX))
(JUMPE 1 TAG3)
(MOVE 2 (SPECIAL E))
(HLRZ@ 1 1)
(CALL 2 (E EQUAL))
(JUMPN 1 TAG1)
TAG3 (MOVE 1 (SPECIAL GOODEX2))
(JUMPE 1 TAG4)
(MOVE 2 (SPECIAL E))
(HLRZ@ 1 1)
(CALL 2 (E EQUAL))
(JUMPN 1 TAG1)
TAG4 (TDZA 1 1)
TAG1 (MOVEI 1 (QUOTE T))
(JRST 0 SPECSTR)
NIL
(LAP INTERSECTION SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPN 1 TAG11)
(MOVE 1 0 P)
(JRST 0 TAG5)
TAG11
TAG12 (HLRZ@ 1 -2 P)
(MOVEM 1 -1 P)
(MOVE 2 -4 P)
(CALL 2 (E MEMBER))
(JUMPE 1 TAG15)
(MOVE 1 -1 P)
(CALL 1 (E NCONS))
(MOVE 2 1)
(MOVE 1 -3 P)
(CALL 2 (E *APPEND))
(MOVEM 1 -3 P)
(JRST 0 TAG14)
TAG15 (MOVEI 1 (QUOTE NIL))
TAG16
TAG14 (MOVEM 1 0 P)
(HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG5 (SUB P (C 0 0 3 3))
(MOVE 1 0 P)
(SUB P (C 0 0 3 3))
(POPJ P)
NIL
(LAP LISTP SUBR)
(PUSH P 1)
(CALL 1 (E ATOM))
(JUMPN 1 TAG2)
(MOVE 1 0 P)
(CALL 1 (E LENGTH))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E *LESS))
(JUMPE 1 TAG1)
TAG2 (TDZA 1 1)
TAG1 (MOVEI 1 (QUOTE T))
(SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP ANY SUBR)
(MOVEI 1 (QUOTE T))
(POPJ P)
NIL
(LAP NUMBER SUBR)
(JCALL 1 (E NUMBERP))
NIL
(LAP ANYLIST SUBR)
(PUSH P 1)
(JUMPE 1 TAG1)
(CALL 1 (E ATOM))
(JUMPE 1 TAG1)
(TDZA 1 1)
TAG1 (MOVEI 1 (QUOTE T))
(SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP PRINTMATRIX SUBR)
(MOVEI 1 (QUOTE "FNAME TF1 TF2 TF3 TF4 TF5 TF6 TF7 TF8 TF9"))
(CALL 1 (E PRINTSTR))
(JSP 6 SPECBIND)
(0 0 (SPECIAL I))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (SPECIAL KNOWNF))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPN 1 TAG12)
(MOVE 1 0 P)
(JRST 0 TAG6)
TAG12
TAG13 (HLRZ@ 1 -1 P)
(MOVEM 1 (SPECIAL I))
(PUSH P (SPECIAL PF))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG2 (MOVE 1 -2 P)
(JUMPN 1 TAG24)
(MOVE 1 0 P)
(JRST 0 TAG20)
TAG24
TAG25 (HLRZ@ 1 -2 P)
(MOVE 2 1)
(MOVEM 1 -1 P)
(MOVE 1 (SPECIAL I))
(CALL 2 (E GET))
(CALL 1 (E NCONS))
(MOVE 2 1)
(MOVE 1 0 P)
(CALL 2 (E *APPEND))
(MOVEM 1 0 P)
(HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG2)
TAG20 (SUB P (C 0 0 3 3))
(MOVE 2 (SPECIAL I))
(MOVEM 1 -2 P)
(CALL 2 (E XCONS))
(CALL 1 (E PRINT))
(MOVEM 1 0 P)
(HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG6 (PUSHJ P SPECSTR)
(MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 3 3))
(POPJ P)
NIL